﻿Imports DevComponents.DotNetBar

Public Class TOASTCLASS

    Public Shared Sub gloadToastMSG(ByVal form As Form, ByVal msg As String)
        Dim glow As eToastGlowColor = eToastGlowColor.Blue
        Dim pos As eToastPosition = eToastPosition.TopCenter
        ToastNotification.Show(form, msg + "   ", My.Resources.money, 5 * 1000, glow, pos)
    End Sub

    Public Shared Sub SuccesToastMSG_TOP(ByVal form As Form, ByVal msg As String)
        Dim glow As eToastGlowColor = eToastGlowColor.Blue
        Dim pos As eToastPosition = eToastPosition.TopCenter
        ToastNotification.Show(form, msg + "   ", My.Resources.money, 5 * 1000, glow, pos)
    End Sub

    Public Shared Sub SuccesToastMSG_DOWN(ByVal form As Form, ByVal msg As String)
        Dim glow As eToastGlowColor = eToastGlowColor.Blue
        Dim pos As eToastPosition = eToastPosition.BottomCenter
        ToastNotification.Show(form, msg + "   ", My.Resources.money, 5 * 1000, glow, pos)
    End Sub
End Class
